(defun cp (l) (if (null l) nil (cons (first l) (cp (rest l)))))
(defun mrg(l m)
  (cond
	((null l) (cp m))
	((null m) (cp l))
	((< (first l) (first m)) (cons (first l) (mrg (rest l) m)))
	((< (first m) (first l)) (cons (first m) (mrg l (rest m))))
	(T (cons (first l) (mrg (rest l) (rest m))))))
(print (mrg '(1 2) '(3 4 5)))
(print (mrg '(1 3) '(3 4 5)))
(print (mrg '(1 3) '(2 3 4 5)))
(print (mrg '(1 3 10) '(2 4 5)))
